program ArrowMass;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
  a: ^(array [0..99] of integer);

begin
  new(a);
  for i:= 0 to 99 do
    a^[i]:=i;
  for i:= 0 to 99 do
    a^[i]:=0;
  dispose(a);
end.
 